home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / windows / ext.zip / EXT2.XWS < prev    next >
Text File  |  1992-02-04  |  964b  |  31 lines
  1. /*
  2.    CREATES A FILE EXTENSION (CAPFILE)
  3.  
  4.    THIS SCRIPT WILL CREATE AN EXTENSION CONSISTING OF
  5.    CURRENT MONTH AND DATE USING CAPFILE NAME AS THE FILENAME.
  6.  
  7.    CREATED FOR VERSION 1.2.1 WHICH DOES NOT PROVIDE FILE
  8.    EXTENSION FOR CAPTURE FILE UNLESS YOU SPECIFY ONE.
  9.    
  10. */
  11.  
  12. CAPTURE ON
  13.  
  14. IF (CURMONTH = 12) AND (CURDAY < 10) THEN CAPTURE CAPFILE + ".C0"+STR(CURDAY) : JUMP DONE
  15. IF (CURMONTH = 11) AND (CURDAY < 10) THEN CAPTURE CAPFILE + ".B0"+STR(CURDAY) : JUMP DONE
  16. IF (CURMONTH = 10) AND (CURDAY < 10) THEN CAPTURE CAPFILE + ".A0"+STR(CURDAY) : JUMP DONE
  17.  
  18.  
  19. IF CURMONTH = 12 THEN CAPTURE CAPFILE + ".C" + STR(CURDAY) : JUMP DONE
  20. IF CURMONTH = 11 THEN CAPTURE CAPFILE + ".B" + STR(CURDAY) : JUMP DONE
  21. IF CURMONTH = 10 THEN CAPTURE CAPFILE + ".A" + STR(CURDAY) : JUMP DONE
  22. IF CURDAY < 10 THEN CAPTURE CAPFILE + "." + STR(CURMONTH) + "0" + STR(CURDAY) ELSE ...
  23. CAPTURE CAPFILE + "." + STR(CURMONTH) + STR(CURDAY)
  24.  
  25. LABEL DONE
  26. END
  27.  
  28.  
  29.  
  30.  
  31.